home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d925.lha / DonsGenies / FrenchGenies.lha / Rexx / GrilleTirñÆDeLaBoûÕe.pprx < prev    next >
Text File  |  1993-08-03  |  2KB  |  66 lines
  1. /*
  2. @BGrilleTiréeDeLaBoîte @P @I Ecrit et © par Don Cox en Août 1992
  3. @IRévision en Février 1993. N'est pas du Domaine Publique. Tous Droits
  4. @IRéservés.
  5. Traduit par Fabien Larini le 23/07/93.
  6.  
  7. Ce Génie utilise les dimensions d'une boîte choisie pour les placer dans
  8. la grille. Active l'alignement sur la grille. Sauve les dimensions de 
  9. l'ancienne grille pour pouvoir les rappeler avec le Génie "RestoreGrille".
  10. */
  11.  
  12.  
  13. /*GridFromBox*/
  14. /* This Genie sets up a grid to match a box, with snap enabled. Written
  15. by Don Cox  © August 92*/
  16.  
  17.  
  18. signal on error
  19. signal on syntax
  20. address command
  21. call SafeEndEdit.rexx()
  22. call ppm_AutoUpdate(0)
  23. cr="0a"x
  24.  
  25. currentunits = ppm_GetUnits()
  26. box     = ppm_ClickOnBox("Clickez dans la Boîte pour les Dimensions de la Grille.")
  27. if box  = 0 then exit_msg("Pas de Boîte Sélectionnée")
  28. gsize = ppm_GetGridSize()
  29. gwidth = word(gsize,1)
  30. gheight = word(gsize,2)                      
  31. call ppm_SaveText("ram:gridsize",gsize)
  32. size = ppm_GetBoxSize(box)
  33. width = word(size,1)
  34. height = word(size,2)
  35. choice = ppm_Inform(3,"Quelle(s) dimension(s) de la Boîte ?","Largeur","Hauteur","Les Deux")
  36. select
  37.     when choice = 0 then call ppm_SetGridSize(width,gheight)
  38.     when choice = 1 then call ppm_SetGridSize(gwidth,height)
  39.     otherwise call ppm_SetGridSize(width,height)
  40.     end
  41.  
  42.  
  43. call ppm_SetGrid(1)
  44.  
  45. call ppm_SetGridSnap(1)
  46.  
  47. call exit_msg()
  48.  
  49. end
  50.  
  51. error:
  52. syntax:
  53.     do
  54.     exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
  55.     end
  56.  
  57. exit_msg:
  58.     do
  59.     parse arg message
  60.     if message ~= "" then
  61.     call ppm_Inform(1,message,)
  62.     call ppm_ClearStatus()
  63.     call ppm_AutoUpdate(1)
  64.     exit
  65.     end
  66.